home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
mac
/
Mac_Files
/
Vendor Demos
/
NeuralWare folder
/
nw2v50
/
spr.nnc
< prev
next >
Wrap
Text File
|
1993-08-23
|
2KB
|
58 lines
csv3.1 !file format is Control Strategy Version 3.1
!18:08 16-Sep-89 (spr.nnc) Spatio-Temporal Pattern Recoginition
!************************************************************************
!* *
!* Spatio-Temporal Pattern Recognition Control Strategy *
!* *
!************************************************************************
!
! *** Recall ***
!
!MASK label op-code operands comment
L_saR_sa trace aux3 ! 0 set trace option to aux3
L_saR_sa cset recall,1 ! 1 recall count
L_saR_sa lset in ! 2 input layer
L___R_sa io read ! 3 get input data
L_saR___ io lrnin ! 4 learning input
L___R_sa @rloop math fire|sum ! 5 sum (for normalization)
L___R_sa math fire|rnoise|tran! 6 compute transfer function
L___R_sa math fire|output ! 7 and output
L___R_sa lset cur,1 ! 9 next layer
L___R_sa lcmp out ! 8 at output layer ?
L___R_sa blt @rloop ! 10 loop till done
L___R_sa io rcltst ! 11 Test target data
L___R_sa math fire|sum|ce=e|tran|output|e-=w|swap !12
L___R_sa io write ! 13 write results
L___R_sa br @exit ! 14 skip to end
!
! *** Learning ***
!
!MASK label op-code operands comment
L_saR___ lset in ! 15 clear out error field
L_saR___ @lce math fire|ce=e|e=0 ! 16 set ce=error; error=0
L_saR___ lset cur,1 ! 17 next layer
L_saR___ lcmp out ! 18 done yet?
L_saR___ blt @lce ! 19 no
L_saR___ lset out ! 20 back-propagate error
L_saR___ io lrnout ! 21 get desired output
L_saR___ @lbkp math fire|backp ! 22 back-propagate error1
L_saR___ lset cur,-1 ! 23 previous layer
L_saR___ lcmp out,-4 ! 24 done?
L_saR___ bgt @lbkp ! 25 no, keep going
L_saR___ lset in ! 26 start at input layer
L_saR___ @lloop fcmp learnf,ll:spr ! 27 see if SPR learning rule
L_saR___ bne @llstd ! 28 no, standard
L_saR___ math fire|set ! 29 SPR, force sum=prior PE's output
L_saR___ br @llcom ! 30 skip to common
L_saR___ @llstd math fire|sum ! 31 clear error & output
L_saR___ @llcom math fire|tran ! 32 perform tran function
L_saR___ math fire|output|learn ! 33 finish up math
L_saR___ lset cur,1 ! 34 next layer
L_saR___ lcmp out ! 35 at output layer ?
L_saR___ blt @lloop ! 36 loop till done
L_saR___ math fire|sum|tran|output|learn ! 37 output layer
L_saR___ io lrnrslt ! 38 send output to userio
LisaRisa @exit trace 0 ! 39 turn off any trace function